home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / c / uw_1.exe / UW_TUT6.C < prev    next >
Text File  |  1992-11-02  |  15KB  |  388 lines
  1. /****************************************************************************/
  2. /* UW_TUT6.C                                                                */
  3. /*                                                                          */
  4. /* NOTE: THIS FILE IS PUBLIC DOMAIN AND MAY BE MODIFIED AND USED AT WILL    */
  5. /*                                                                          */
  6. /* Now we add a simple menu system to allow for loading and saving of       */
  7. /* customer files.  We add three functions, file load and file save, using  */
  8. /* a simple popup window function with string entry to get a filename...    */
  9. /*                                                                          */
  10. /*                                                         Dr. Boyd Gafford */
  11. /*                                                         Kevin Huck       */
  12. /*                                                         EnQue Software   */
  13. /*                                                         09/11/92         */
  14. /****************************************************************************/
  15. #include <stdio.h>
  16. #include <fcntl.h>
  17. #include <io.h>
  18. #ifndef __TURBOC__
  19. #include <sys\types.h>
  20. #endif
  21. #include <sys\stat.h>
  22. #include <time.h>
  23. #include <ctype.h>
  24. #include "uw.h"                           /* include the necessary headers  */
  25.  
  26. #define MAX_CUST 100
  27.  
  28. typedef struct cust
  29. {
  30.   int status;
  31.   int cust_no;
  32.   char business[34];
  33.   char name[34];
  34.   char addr[34];
  35.   char city[34];
  36.   char state[4];
  37.   char zip[10];
  38.   char phone[16];
  39.   char fax[16];
  40.   char date[10];
  41.   char memo[34];
  42.   char unused[26];                                /* round out to 256 bytes */
  43. } CUST;
  44.  
  45. /*----------------------- global window variables --------------------------*/
  46. WINDOW  Desk_wn, Window1;
  47. CUST    Customers[MAX_CUST];
  48. char    Fname[33];
  49.  
  50. MENU    Top_menu, *Top_mnp = &Top_menu;
  51. MENU    Files_menu, Edit_menu;
  52. MENU    *Drop_mnps[3];
  53.  
  54. /*-------------------------------- prototypes ------------------------------*/
  55. int disp_time(void);
  56. void disp_cust(CUST *cp, WINDOW *wnp);
  57. int file_load(CUST *customers);
  58. int file_save(CUST *customers);
  59. int get_fname(char *fname);
  60.  
  61. /*********/
  62. /* ~main */
  63. /*       ********************************************************************/
  64. /*  Demonstrate data entry capability...                                    */
  65. /****************************************************************************/
  66. int main()
  67. {
  68.   int ret_val, cust = 0, end_flag = 0;
  69.   WINDOW *wnp;
  70.   CUST *cp;
  71.   uchar back_att  = (LIGHTGRAY << 4) | BLACK,
  72.         bdr_att   = (LIGHTGRAY << 4) | BLACK,
  73.         csr_att   = (CYAN << 4) | YELLOW,
  74.         first_att = (LIGHTGRAY << 4) | RED;
  75.  
  76.   wnp = &Window1;                         /* set local window pointer       */
  77.   init_video(80, 25);                     /* init video for 80 x 25 screen  */
  78.   init_clock(0x3333);                     /* init clock irq at 91 tics/sec  */
  79.  
  80.   wn_create(0, 0, V_cols-1, V_rows-1, NO_BDR, WN_NORMAL, &Desk_wn);
  81.   link_window(&Desk_wn);
  82.  
  83.   /*------------------------ create the menu system ------------------------*/
  84.   Drop_mnps[0] = &Files_menu;
  85.   Drop_mnps[1] = &Edit_menu;
  86.  
  87.   menu_create(0, 0, V_cols - 1, 0, M_HORIZONTAL,
  88.               back_att, bdr_att, csr_att, first_att,
  89.               NO_BDR, WN_NORMAL, Top_mnp);
  90.   item_add( "   Files   ", 1, 3, &Top_menu );
  91.   item_add( "   Edit    ", 2, 3, &Top_menu );
  92.  
  93.   menu_create(0, 1, 14, 5, M_VERTICAL,
  94.     back_att, bdr_att, csr_att, first_att,
  95.     SGL_BDR, WN_NORMAL, Drop_mnps[0]);
  96.   item_add( " Load File", 4, 1, &Files_menu );
  97.   item_add( " Save File", 5, 1, &Files_menu );
  98.   item_add( "   Quit   ", 3, 3, &Files_menu );
  99.  
  100.   menu_create(11, 1, 32, 4, M_VERTICAL,
  101.     back_att, bdr_att, csr_att, first_att,
  102.     SGL_BDR, WN_NORMAL, Drop_mnps[1]);
  103.   item_add( " Clear Current", 6, 7, &Edit_menu );
  104.   item_add( " Clear All    ", 7, 7, &Edit_menu );
  105.  
  106.   set_idle_func(disp_time);               /* set background clock function  */
  107.  
  108.   wn_create(5, 5, 75, 20, SLD_BDR, WN_POPUP, wnp);
  109.   wn_color(YELLOW, BLUE, wnp);            /* change the window colors       */
  110.   wn_bdr_color(WHITE, BLUE, wnp);         /* change the border's colors     */
  111.   link_window(wnp);
  112.  
  113.   /*------------- initialize first customer as EnQue Software --------------*/
  114.   cp = &Customers[0];
  115.   strcpy(cp->business, "EnQue Software"); 
  116.   strcpy(cp->name, "Kevin Huck & Boyd Gafford");  
  117.   strcpy(cp->addr, "Rt. 1 Box 116C"); 
  118.   strcpy(cp->city, "Pleasant Hill");  
  119.   strcpy(cp->state, "MO");  
  120.   strcpy(cp->zip, "64080"); 
  121.   strcpy(cp->phone, "(816)987-2515"); 
  122.   strcpy(cp->fax, "(816)987-2515");      
  123.   strcpy(cp->date, "09/11/92");      
  124.   strcpy(cp->memo, "BBS 816-358-8990"); 
  125.  
  126.   menu_set(Top_mnp);
  127.   while(!end_flag)
  128.   {
  129.     cp = &Customers[cust];
  130.     mv_cs(1,1, wnp);
  131.     wn_printf(wnp, "Customer:%3d", cust+1);
  132.     wn_plst(CENTERED, 3, "Use cursor keypad to select customer", &Desk_wn);
  133.     disp_cust(cp, wnp);
  134.     wait_event();
  135.     switch(Event.key)
  136.     {
  137.       /*------------------------- process menus ----------------------------*/
  138.       case KEY_ALT_Q:                                       /* quit program */
  139.         end_flag = 1;
  140.         break;
  141.       case KEY_ALT_F: case KEY_ALT_E:
  142.         m_show();
  143.         if( Event.key == KEY_ALT_F )
  144.           ret_val = menu_system_ll(&Top_menu,&Drop_mnps[0],0,'F',M_EXIT_ON_ESC);
  145.         else
  146.           ret_val = menu_system_ll(&Top_menu,&Drop_mnps[0],0,'E',M_EXIT_ON_ESC);
  147.         switch( ret_val )
  148.         {
  149.           case 3:                                           /* quit program */
  150.             end_flag = 1;
  151.             break;
  152.           case 4:                                           /* load file    */
  153.             file_load(Customers);
  154.             break;
  155.           case 5:                                           /* save file    */
  156.             file_save(Customers);
  157.             break;
  158.           case 6:                                           /* clear one    */
  159.             setmem(cp, sizeof(CUST), 0);
  160.             break;
  161.           case 7:                                           /* clear all    */
  162.             setmem(Customers, sizeof(Customers), 0);
  163.             break;
  164.         }
  165.         break;
  166.       /*---------------------- process cursor keys -------------------------*/
  167.       case KEY_HOME:
  168.         cust = 0;
  169.         break; 
  170.       case KEY_END:
  171.         cust = MAX_CUST-1;
  172.         break; 
  173.       case KEY_DN: 
  174.         if( cust < MAX_CUST-1 )
  175.           cust++;
  176.         break;
  177.       case KEY_UP: 
  178.         if( cust > 0 )
  179.           cust--;
  180.         break;
  181.       case KEY_PGUP: 
  182.         if( cust >= 10 )
  183.           cust -= 10;
  184.         else
  185.           cust = 0;
  186.         break;
  187.       case KEY_PGDN: 
  188.         if( cust < MAX_CUST-11 )
  189.           cust += 10;
  190.         else
  191.           cust = MAX_CUST-1;
  192.         break;
  193.       /*-------------------- process field edit keys -----------------------*/
  194.       case 'b': case 'B':                         /* get new business name  */
  195.         mv_cs( 11, 3, wnp);
  196.         wn_gets_ll(cp->business, "________________________________",
  197.                                  "********************************",
  198.           swap_nibbles(wnp->att), G_UP_FST_CHAR2 | G_STRIP_END, 32, wnp);
  199.         break;
  200.       case 'n': case 'N':                         /* get new contact name   */
  201.         mv_cs( 11, 4, wnp);
  202.         wn_gets_ll(cp->name, "________________________________",
  203.                              "********************************",
  204.           swap_nibbles(wnp->att), G_UP_FST_CHAR2 | G_STRIP_END, 32, wnp);
  205.         break;
  206.       case 'a': case 'A':                         /* get new address        */
  207.         mv_cs( 11, 5, wnp);
  208.         wn_gets_ll(cp->addr, "________________________________",
  209.                              "********************************",
  210.           swap_nibbles(wnp->att), G_UP_FST_CHAR2 | G_STRIP_END, 32, wnp);
  211.         break;
  212.       case 'c': case 'C':                         /* get new city           */
  213.         mv_cs( 11, 6, wnp);
  214.         wn_gets_ll(cp->city, "_____